BMUG PD-ROM 1995 Fall/PD-ROM F95.toast/Programming/Programming Utilities/ViewIt 2.04 ƒ/ViewIt™ 2.04 Shareware/Projects/Fortran Demos/FaceStorLF.inc

Text File | 1992-07-30 | 8.2 KB | 315 lines | [TEXT/ttxt]

C FaceWare 2.03 Constants & Shared Record
C ©FaceWare 1989-92.  All Rights Reserved.

C FaceIt commands
    integer*4 DoLoop,DoEvnt,DoMenu,DoUpdt2,DoAuto2,GetMsg,GetFWs
    parameter (DoLoop = 0)
    parameter (DoEvnt = -51)
    parameter (DoMenu = -52)
    parameter (DoUpdt2 = -53)
    parameter (DoAuto2 = -54)
    parameter (GetMsg = -55)
    parameter (GetFWs = 157)
C DialIt commands
    integer*4 NewDlg,OpnDlg,EndDlg,SetDlg,GetDlg,ShoDlg,ChkDlg
    integer*4 ExtDlg,DrwDlg,WinTxt,WinFnt,WinCol
    parameter (NewDlg = 1131)
    parameter (OpnDlg = 1132)
    parameter (EndDlg = 1133)
    parameter (SetDlg = 1134)
    parameter (GetDlg = 1135)
    parameter (ShoDlg = 1136)
    parameter (ChkDlg = 1137)
    parameter (ExtDlg = 1138)
    parameter (DrwDlg = 1139)
    parameter (WinTxt = 1147)
    parameter (WinFnt = 1148)
    parameter (WinCol = 1149)
C UtilIt commands
    integer*4 DoInit,DoPrep,ChgCur,PstEvt,PopMen,SetIdl,EndIdl
    integer*4 ShoAlt,StpAlt,NotAlt,CtnAlt,SetItm2,GetItm
    integer*4 ChkMem,NewBlk,PrgCmd,GetFgC,GetBkC,SetFgC,SetBkC
    integer*4 SetFSS,SetPal2,StdOpn,StdSav,GetRef,SetRef,SetTyp
    integer*4 SndBhd,GetNam,SetNam,MovRec,MovAlt,MovDlg,MovWin
    integer*4 DrgWnd,ShoStr,StpStr,NotStr,CtnStr,GetStd,SetStd
    integer*4 SavDlg,SavWin,GetI2,GetI4,GetR4,GetR8,GetR10
    integer*4 GetR12,SetI2,SetI4,SetR4,SetR8,SetR10,SetR12
    integer*4 SetSub,TrmStr,SetPrm,CnvStr,NumToS,SToNum,GetStr
    integer*4 SetStr,SrtLst,DupLst,SetItm1,FixFSC,SelFSC,PstNot
    integer*4 FndTxt,DoUnld
    parameter (DoInit = -61)
    parameter (DoPrep = -62)
    parameter (DoUnld = -63)
    parameter (ChgCur = 121)
    parameter (PstEvt = 122)
    parameter (PopMen = 123)
    parameter (PstNot = 124)
    parameter (SetIdl = 131)
    parameter (EndIdl = 132)
    parameter (ShoAlt = 153)
    parameter (StpAlt = 154)
    parameter (NotAlt = 155)
    parameter (CtnAlt = 156)
    parameter (SetItm1 = 160)
    parameter (SetItm2 = 161)
    parameter (GetItm = 162)
    parameter (FixFSC = 163)
    parameter (SelFSC = 164)
    parameter (ChkMem = 171)
    parameter (NewBlk = 172)
    parameter (PrgCmd = 173)
    parameter (GetFgC = 178)
    parameter (GetBkC = 179)
    parameter (SetFgC = 180)
    parameter (SetBkC = 181)
    parameter (SetFSS = 183)
    parameter (SetPal2 = 185)
    parameter (StdOpn = 201)
    parameter (StdSav = 202)
    parameter (GetRef = 205)
    parameter (SetRef = 206)
    parameter (SetTyp = 208)
    parameter (SndBhd = 250)
    parameter (GetNam = 251)
    parameter (SetNam = 252)
    parameter (MovRec = 254)
    parameter (MovAlt = 255)
    parameter (MovDlg = 256)
    parameter (MovWin = 257)
    parameter (DrgWnd = 259)
    parameter (ShoStr = 261)
    parameter (StpStr = 262)
    parameter (NotStr = 263)
    parameter (CtnStr = 264)
    parameter (GetStd = 301)
    parameter (SetStd = 302)
    parameter (SavDlg = 356)
    parameter (SavWin = 357)
    parameter (GetI2 = 422)
    parameter (GetI4 = 423)
    parameter (GetR4 = 425)
    parameter (GetR8 = 426)
    parameter (GetR10 = 427)
    parameter (GetR12 = 428)
    parameter (SetI2 = 432)
    parameter (SetI4 = 433)
    parameter (SetR4 = 435)
    parameter (SetR8 = 436)
    parameter (SetR10 = 437)
    parameter (SetR12 = 438)
    parameter (SetSub = 451)
    parameter (TrmStr = 452)
    parameter (SetPrm = 453)
    parameter (CnvStr = 454)
    parameter (FndTxt = 455)
    parameter (NumToS = 471)
    parameter (SToNum = 481)
    parameter (GetStr = 491)
    parameter (SetStr = 492)
    parameter (SrtLst = 493)
    parameter (DupLst = 494)
C ViewIt commands
    integer*4 NewWnd,EndWnd,MdlWnd,SizWnd,MovWnd
    integer*4 ShoWnd,HidWnd,GetWnd,GetCtl,ShoCtl,GetVal
    integer*4 SetVal,OvrCtl,AddCtl,DrwCtl,ScrCtl,ActCtl
    integer*4 GetWVC,LnkCtl,AddVew,SelCtl,DspCtl,StlCtl
    integer*4 SavCtl,SavWnd,HlpWnd
    parameter (AddVew = -1200)
    parameter (NewWnd = -1201)
    parameter (EndWnd = -1202)
    parameter (MdlWnd = -1203)
    parameter (SizWnd = -1204)
    parameter (MovWnd = -1205)
    parameter (ShoWnd = -1206)
    parameter (HidWnd = -1207)
    parameter (GetWVC = -1208)
    parameter (GetWnd = -1209)
    parameter (LnkCtl = -1210)
    parameter (GetCtl = -1211)
    parameter (ShoCtl = -1212)
    parameter (GetVal = -1213)
    parameter (SetVal = -1214)
    parameter (OvrCtl = -1215)
    parameter (AddCtl = -1216)
    parameter (DrwCtl = -1217)
    parameter (ScrCtl = -1218)
    parameter (ActCtl = -1219)
    parameter (SelCtl = -1220)
    parameter (DspCtl = -1221)
    parameter (StlCtl = -1222)
    parameter (SavCtl = -1223)
    parameter (SavWnd = -1224)
    parameter (HlpWnd = -1229)

C Global FaceWare record
    structure /FaceRec/
      integer*2   fHead(8)
      integer*4   fOffPort
      integer*4   fCOffPort
      integer*4   fActiveWnd
      integer*4   fActiveRec
      integer*2   fActiveID
      integer*2   fActiveResID
      integer*2   fMsgCount
      integer*4   fFlags
      integer*4   fStuff
      integer*4   fHeapBuff
      integer*4   fEnvFlags
      integer*4   fSleep
      integer*2   fScreenRect(4)
      integer*2   fDragRect(4)
      integer*4   fFrontSleep
      integer*4   fBackSleep
      integer*2   fFiller1
      integer*4   fStdBlock
      integer*2   fStdCount
      integer*2   fSysEnvArr(8)
      integer*2   fApplVRef
      character*4 fCreator
      integer*4   fRefCon
      integer*2   fFiller2(7)
      integer*2   fCursor
      integer*4   fFontMenu
      integer*4   fSizeMenu
      integer*4   fStyleMenu
      integer*4   fColorMenu
      integer*1   fFiller3
      integer*1   fI1Err
      integer*2   fI2Err
      integer*4   fI4Err
      integer*2   fI8Err(4)
      real*4      fR4Err
      real*8      fR8Err
      integer*2   fR10Err(5)
      integer*2   fR12Err(6)
      integer*2   fFiller4(125)
      integer*4   fWDEF
      integer*4   fGlueData
      integer*4   fWaitNextEvent
      integer*4   fNewWindow
      integer*4   fNewCWindow
      integer*4   fGetNewWindow
      integer*4   fGetNewCWindow
      integer*4   fGetNewDialog
      integer*4   fDisposeWindow
      integer*4   fDisposDialog
      integer*4   fActiveWindow
      integer*4   fSelectWindow
      integer*4   fUpdateOther
      integer*4   fFiller5(9)
      integer*2   fEvent(8)
C DialIt subrecord
      integer*2   dHead(8)
      integer*4   dlogptr
      integer*4   dataptr
      integer*4   dFlags
      integer*2   dBaseID
      integer*2   dPopID
      integer*2   listID(20)
      real*4      slope(20)
      real*4      intercept(20)
      integer*2   dialog(99)
      integer*2   dHit
      integer*2   dClick
      integer*2   dEvent(8)
C UtilIt subrecord
      integer*2   uHead(8)
      integer*2   uI2
      integer*4   uI4
      real*4      uR4
      real*8      uR8
      integer*2   uR10(5)
      integer*2   uR12(6)
      integer*2   uPt(2)
      integer*2   uRect(4)
      integer*4   uCommand
      integer*4   uParam(4)
      integer*4   uResult
      integer*4   uMenuID
      integer*4   uMenuItem
      character*256 uString
      character*256 uName
      integer*2   uRGB(3)
      integer*1   uStyle
      integer*1   uI1
      integer*2   uI8(4)
      integer*4   uMenuHdl
C ViewIt subrecord
      integer*2   vHead(8)
      integer*2   vErr
      integer*4   vCDEF
      integer*4   vSelectCtl
      integer*4   vSelectRec
      integer*2   vSelectID
C info returned by enabled items
      integer*2   wiHit
      integer*2   wvHit
      integer*2   wcHit
      integer*2   wClick
      integer*2   wEvent(8)
C window info returned by GetWnd
      integer*4   wWindow
      integer*2   wResID
      integer*2   wCount
      integer*2   wvCount
      integer*2   wiCount
C control info returned by GetCtl
      integer*4   cControl
      integer*2   ciIndex
      integer*2   cvIndex
      integer*2   ccIndex
      integer*2   cBaseID
C info copied from "cControl" block
      integer*4   cNext
      integer*4   cOwner
      integer*2   cRect(4)
      integer*1   cVis
      integer*1   cHilite
      integer*2   cValue
      integer*2   cMin
      integer*2   cMax
      integer*4   cInfo
      integer*4   cLoData
      integer*4   cAction
      integer*4   cRefCon
      character*256 cTitle
C info copied from "cInfo" block
      integer*2   cStuff(6)
      integer*4   cTmplRefCon
      integer*4   cPtr
      integer*4   cHiData
      integer*4   cView
      integer*2   cOldRect(4)
      integer*2   cClip(4)
      integer*2   cContent(4)
      integer*2   cLimit(4)
      integer*4   cType
      integer*2   cVarCode
      character*4 cResType
      integer*2   cResID
      integer*4   cResHdl
      integer*4   cPrivate
      integer*1   cFiller
      integer*1   cCmdKey
      integer*2   cPnRound
      integer*2   cPnSize(2)
      integer*1   cTxJust
      integer*1   cTxFace
      integer*2   cTxSize
      integer*2   cTxFont
      integer*2   cDataType
      integer*1   cDataDigits
      integer*1   cDataFormat
      integer*2   cDataOffset
      integer*4   cDataPtr
      integer*2   cStorType
      integer*4   cStorPtr
      integer*4   cColors
      integer*4   cOverride
      integer*2   cCount
      character*256 cString
C Local FCMD record & proc address table
      integer*2   xEntries
      integer*4   xTable(40)
    end structure